home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / bestofsd.lha / Pig.AMOS / Pig.amosSourceCode < prev    next >
AMOS Source Code  |  1992-10-20  |  723b  |  29 lines
  1. ' *****************************************************
  2. ' *                                                   *  
  3. ' *  This AMOS-program was made by Svante Danielsson  *  
  4. ' *                                                   *  
  5. ' *      Mail me at: til96sdn@mds.mdh.se              *  
  6. ' *                                                   *  
  7. ' *****************************************************  
  8.  
  9. Degree 
  10.  
  11. Screen Open 0,320,256,4,Lowres
  12. Curs Off : Flash Off : Cls 0 : Hide 
  13. Get Sprite Palette 
  14.  
  15. SH�JD=90 : L�NGD=430 : YV�RDE=168
  16. Dim Y(L�NGD)
  17.  
  18. For X=0 To L�NGD
  19.    Y(X)=Sin(X)*SH�JD+YV�RDE
  20. Next X
  21.  
  22. Double Buffer 
  23.  
  24. Do 
  25.    For GRIS=0 To L�NGD
  26.       Bob 0,GRIS,Y(GRIS),1
  27.       Wait Vbl 
  28.    Next GRIS
  29. Loop